;;;Subroutine. Translates points from MCS to WCS.  Only for list returned by nentsel from block selection.
;;;
;;;       Requirements:   nntlst  must be a list returned by (nentsel) for a
;;;                               selection of a block (and not selected by an
;;;                               attribute).
;;;
;;;                       defpnt  is a coordinate list (x y z) of an entity
;;;                               within the selected block.
;;;
;;;       newdpt  =  the coordinate location of defpnt in the WCS.
;;;                               
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      4-24-97
;;;       Edited:         4-24-97
;;;
(defun transpt (nntlst defpnt / )
  (setq newdpt
    (list
      (+
        (* (car defpnt) (car (nth 0(nth 2 nntlst))))
        (* (cadr defpnt) (car (nth 1(nth 2 nntlst))))
	(if (eq(length defpnt)3)
          (* (caddr defpnt) (car (nth 2(nth 2 nntlst))))
	  0
	)
        (car (nth 3(nth 2 nntlst)))
      )
      (+
        (* (car defpnt) (cadr (nth 0(nth 2 nntlst))))
        (* (cadr defpnt) (cadr (nth 1(nth 2 nntlst))))
	(if (eq(length defpnt)3)
          (* (caddr defpnt) (car (nth 2(nth 2 nntlst))))
	  0
	)
        (cadr (nth 3(nth 2 nntlst)))
      )
      (+
        (* (car defpnt) (caddr (nth 0(nth 2 nntlst))))
        (* (cadr defpnt) (caddr (nth 1(nth 2 nntlst))))
	(if (eq(length defpnt)3)
          (* (caddr defpnt) (car (nth 2(nth 2 nntlst))))
	  0
	)
        (caddr (nth 3(nth 2 nntlst)))
      )
    )
  )
)
